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MODULE NXTHDR ( 
LANGUAGE, (BL 15832), 
IDENT = *VO4= 
BEGIN 
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3 ; 

eae 

bot 

: ; 1 

3 8 1 

Py y 1 % 
.. 0 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 7 a 1 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \¢ ¢ } ;* ALL RIGHTS RESERVED. 
3; 4 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
es oS 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
5s 6 8018 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
a a 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
4 18 R218 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: Y 4d : Y TRANSFERRED. ; 
3 '® 

3 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ; 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 Z 4 Z : = CORPORATION. . 
: 5 0025 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $$ oo $ : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
: 28 0028 1 is * 
: 9 0029 1 eee aera eee ee RAE E EAE E REAR EAA EAE E TERRE ARA ARERR AERA EE 
3 0 0030 1 

; & oo82 yi 

: 0 5 1 i FACILITY: F11ACP Structure Level 1 

3 4 034 1! 

; ? $4 1 } ABSTRACT: 

: 7 0037 1: This routine reads the nis. extension header, if any, of the 

3 3 ts : } given file. 

: 40 0040 | ENVIRONMENT: 

; $¢ B26 1! STARLET operating system, including privileged system services 

5; 6 00465 1! and internal exec routines. 

: 44 Ree 1! 

: 45 45 1 !e= 

Pho Be 

; 48 0048 | AUTHOR: Andrew C. Goldstein, CREATION DATE: 22-Jul-1977 17:40 

; 1 a3 i MODIFIED BY: 

; § 082 1 i A0100 © ACG0001 _ Andrew C. Goldstein, 10-Oct-1978 20:01 

: ? 37 : Previous revision history moved to F1TA.REV 

: 55 55 1 jee 

3 § 926 1 

: 57 1 
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| NXTHDR 16-Sep-1984 01:12:24 VAK-11 Bliss-32 V4.0-742 Page 3 
yO4nb00 1a-Sep-19 4 93:38:25 DISKSVMSMASTER:CF11A.SRCINXTHDOR.B32;1 . (2) 
; 6) ie ! GLOBAL ROUTINE NEXT_HEADER (HEADER, FCB, EXT_FID, SEGNUM) = 
3 8 6 1 tee 
>; 666 eS 
: oF A ! FUNCTIONAL DESCRIPTION: 
3 §$ 3 1! This routine reads the next extension header, if any, of the 
; @& jee indicated file. Extension data is taked from either the indicated 
5 +4 § : file header or the arguments. 
: 71 & 
ee 5 1 ! CALLING SEQUENCE: 
5 7 ’ : NEXT_HEADER (ARG1, ARG2, ARG3, ARG4) 
r. & Sb 1 ! INPUT PARAMETERS: 
ee 0389 1! ARG1: address of current file header or 0 
SS. 0390 1! es address of corresponding FCB or zero 
: 78 0391 1! ARGS: extension file ID, if present 
3 0 8 : ARG4: extension segment number, if present 
; 81 8 94 1 ! IMPLICIT INPUTS: 
, 0395 1! NONE 
; 8 0396 1! 
; 84 039 1 ! OUTPUT PARAMETERS: 
; 0398 1! NONE 
5; & 0399 1! 
3 87 0400 1 ! IMPLICIT OUTPUTS: | 
: 88 0401 1! NONE 
; WF otf) 1! 
3 040 1 ! ROUTINE VALUE: 
$ 91 04046 1! Address of header read or 0 if none 
a. 0405 1! 
. 0406 1 ! SIDE EFFECTS: 
5; & 0407 1! File header may be read 
; 0408 1! | 
; 0409 1 !-- 
: 97 0410 1 
; B® 0411 BEGIN 
; 2699 be1§ 
: 100 041 MAP 
; 101 0414 HEADER : REF BBLOCK, ' file header arg 
: 106 0415 F : REF BBLOCK, ! ore 
; 0416 EXT_FID : REF BBLOCK; ! extension file ID arg 
; 104 oh E4 
; 105 418 LOCAL | 
: 106 0419 NEW_HEADER : REF BBLOCK, ! address of extension file header read 
: 107 0420 MAP_AREA : REF BBLOCK, ! address of header map area | 
; 108 0421 EXT FCB : REF rg eg , eeeraes of extension FCB | 
: 109 4 ; FILE ID : BBLOCK CFIDSC_LENGTH], ! file ID of extension header 
; ay " ? SEG_RUMBER : BYTE; ! segment number of file header 
: 6 425 EXTERNAL ROUTINE ~ 
eS | § READ_HEADER; ' read a file header 
i Hs " 
; 116 4 : ! Get the extension file number of the file header. If it is zero, then 
; («42117 430 ! there is no extension header. If it is non-zero, read the header, using 


TITLE NXTHDR 
TIDENT \V04-000\ 
.EXTRN READ_HEADER 
-PSECT $CODES,NOWRT,2 


6 

16- -Sep-1984 01: VAX=-11 Bliss-32_V4.0-742 4 

000 14-S8ep -1984 93: 3:2 DISKSVMSMASTER:CF11A.SRCINXTHDR.B32; 39 * 2 
; 118 431 ! the extension FCB if one exists. é 
3 i} nde ¢ | | 
3 «(Vel 434 IF ACTUALCOUNT LSS 4 ; 
<7 § 435 THEN : 
mB 436 BEGIN ; 
> 126 4 MAP_AREA = ,HEADER + -HEADERCEH1 $8 MPOFFSETJ#2; ; 
: 125 4 8 FILE_IDCFIDS$W_NUM] = .MAP_AREALFM1SwW_EX -FTLNUA); : 
i $ 4 FILE-IDCFIDSW-SEQ] = ,MAP— “AREA FM1$W_EX_FILSEQ); : 
‘ee 440 FILE IDCFIDSW_RVN : 
; 128 44) SEG_RUMBER = 7MAP_AREALFM1$B_EX_SEGNUM + 1; : 
> 129 ¢ END : 
; 130 443 2 ELSE : 
3; 131 0444 BEGIN : 
. 5 ¢ 0445 CHSMOVE (FIDSC_LENGTH, .EXT_FID, FILE_ID); : 
3 Q646 SEG_NUMBER = .SEGNUM; : 
; : : Reet END; : 
7 0449 2 IF .FILE_IDCFIDS$W_NUM] EQL 0 THEN RETURN 0; : 
: 137 0450 2 EXT_FCB = ; 
; 138 0451 (1F_.FCB NEQ 0 : 
; 139 04538 THEN .FCBCFCBSL_EXF CB) : 
; 140 045 Et SE 0 : 
3; (141 0454 ’ 
3 14g 0455 New_HEADER = READ_HEADER (FILE_ID, .EXT_FCB); | : 
> 144 0457 ' Check the segment number of the header read for consistency. : 
3 145 0458 2! : 
: 146 0459 | 
3 147 0460 P_AREA = .NEW HEADER . .NEW_HEA DER CFHISB_MPOFFSETJ#2; | : 
; 148 0461 it SEG NUMBER REQ REACFM1$B_EX_SEGNOM) : 
; 149 Pee: THEN ERR_EXIT (SSS _BADFILEHDR): ; 
> 150 046 ; 
; 151 0464 2 RETURN .NEW_HEADER; ; 
Py 13¢ 0465 ° 
; 1 0466 1 END; ! end of routine NEXT_HEADER : 
| : 
003¢ 00000 ENTRY Wer she HEADER, Save R2,R3,R4,R5 : 0374 | 3 
08 gs 44h SUBL2 ; . 
6C 91 0000 CMB. CAB) ; 0436 | : 
19 if 0008 BGEQU 1$ 3 : 
04 AC OOOA MOVL HEADER, R1 ; 0437 | : 
1 Al QA 900¢ MOVZBL 1(R1) ; ; 
6140 5 001 MOVAW (R1)CROJ, MAP_AREA ; | ; 
02 A2 00 00016 VL 2(MAP_AREA), FILE_ID > 0438 | ; 
04 AE B4 O1A CLRW = FILE _TD+ ; 0440 : 
1 81 0001D ADDB3 #1, TMAP_AREA), SEG_NUMBER ; 0441 ; 
9 11 itd BRB 23° 5 0456 | ; 
6 28 00023 1$: MOVC3 #6, @EXT_FID, FILE_ID ; 0445 | ; 


F 6 
16-Se 4 4 VAX-11 Bliss-32 V4.0-742 5 
14- 38: 138 #3; 38; i] DISKSVMSMASTER:CF11A.SRCINXTHOR.B32; 420 * 2). 
90 00028 MOVB SEGNUM, SEG_NUMBER 3 0446 
B3 900ge 28: STW FILE_16 7 04649 
F BEQL 6 ; 
D 8 MOVL FCB, RO 3; 04651. 
1 BEQL 3$ ; 
DO 00 MOVL 1g(n0). EXT_FCB : 0452) 
11 88 A BRB 4 3 
D4 OO00SC 3$: CLAL EXT_FCB + 0451) 
pp OOSE 4$: PUSHL EXT_FCB 3 0455) 
F 0004 PUSHAB FILE ID : | 
4 004 CALLS #2, READ HEADER : | 
$6 MOVL RO, NEW READER : 
A 48 MOVZBL 1(NEW_HEADER), RO F 0460 
E O04t MOVAW (NEW READER)CROJ, MAP_AREA : 
1 00053 CMPB sg6_A ER, (MAP_AREAY ; 0461 
13 O88 BEQL $ ; 
af O82 CHMU #2064 3 0462 
4 0005C RET : 
DO Fh 5$ MOVL NEW_HEADER, RO 3 0464 
04 60 RET : 
D4 00061 6$ CLRL RO ; 0466) 
04 00063 RET 3 | 
; Routine Size: 100 bytes, Routine Base: S$ CODES + 0000 
| 
: 156 0467 1 | 
s %39 0468 1 END 
3; 136 0469 0 ELUDOM 
| 
; PSECT SUMMARY 
; Name Bytes Attributes | 
: SCODES 100 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
: Library Statistics 
: weeeeeen Symbols ereceece Pages Processing 
; File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 11 0 1000 00:01.9 
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BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NXTHDR/OBJ=OBJ$:NXTHDR MSRCS$:NXTHDR/UPDATE=(ENH$:NXTHDR) 
100 6: 6 3 0 data bytes 


; t+4. Time: :17.9 | 
; Lines/CPU Min: 431 
: Lenenes/CPU-Rin: 1362 
: 7 Ut pages 

; Compi etien Complete 
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